<!--#include file="Librerias/mssql-ds.dll" -->
<%
seleccion = request.QueryString("select")
opcion = request.QueryString("opcion")
'// Recuperar la gestion de trabajo
qGestion = Session("auth_granted_poa_gestion")


	ComboConstruido = "<select name=""var2"" id=""var2"" class=""TextoTam3"" onChange=""cargaContenidoApertura(this.id)""><option value="""">-- Seleccione --</option>"
	sSQL = ""
	sSQL = sSQL & " SELECT aper_id, aper_programa, aper_proyecto, aper_actividad, aper_descripcion"
	sSQL = sSQL & " FROM AperturaProgramatica"
	sSQL = sSQL & " WHERE (aper_estado = 1) AND (aper_gestion = "& qGestion &")"
	sSQL = sSQL & " AND (Len(aper_programa) = 2 AND aper_programa = '"& opcion &"') AND (aper_actividad <> '000' OR aper_proyecto <> '0000')"
	MatrizCombo = MatrixBD(sSQL, 1)
	QReg = UBound(MatrizCombo, 2)
		For i = 0 To QReg
			ComboConstruido = ComboConstruido & "<option value='" & MatrizCombo(0, i) & "'"
			ComboConstruido = ComboConstruido & ">"& MatrizCombo(1, i) &""& MatrizCombo(2, i) &""& MatrizCombo(3, i) &" - "& MatrizCombo(4, i) &"</option>"
		Next				
	ComboConstruido = ComboConstruido & "</select>"
	response.ContentType = "text/html; charset=iso-8859-1"
	response.write ComboConstruido
%>